/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / tmm.elc.z / tmm.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 46 72 69 20 4a 75 6e 20 |.edu on |Fri Jun |
|00000040| 32 38 20 30 35 3a 35 35 | 3a 34 36 20 31 39 39 36 |28 05:55|:46 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 74 6d | 6d 2e 65 6c 0a 3b 3b 3b |/lisp/tm|m.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 33 31 2e 33 2e 0a | 3b 3b 3b 20 62 79 74 65 |9.31.3..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 2e 32 39 22 | 29 29 29 0a 20 20 20 20 | "19.29"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 74 6d 6d 2e 65 6c 27 |(error "|`tmm.el'|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 2e 32 39 20 6f 72 |r Emacs |19.29 or|
|000001c0| 20 6c 61 74 65 72 22 29 | 29 0a 0a 0a 28 62 79 74 | later")|)...(byt|
|000001d0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 0b 42 13 |e-code "|..!...B.|
|000001e0| c4 c5 21 84 10 00 c6 15 | c5 0b 42 13 c7 0b 42 13 |..!.....|..B...B.|
|000001f0| c8 0b 42 13 c9 0b 42 13 | ca 0b 42 13 c6 87 22 20 |..B...B.|..B..." |
|00000200| 5b 72 65 71 75 69 72 65 | 20 65 6c 65 63 74 72 69 |[require| electri|
|00000210| 63 20 74 6d 6d 2d 73 68 | 6f 72 74 2d 63 75 74 73 |c tmm-sh|ort-cuts|
|00000220| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000230| 73 74 20 62 6f 75 6e 64 | 70 20 74 6d 6d 2d 6f 6c |st bound|p tmm-ol|
|00000240| 64 2d 6d 62 2d 6d 61 70 | 20 6e 69 6c 20 74 6d 6d |d-mb-map| nil tmm|
|00000250| 2d 6f 6c 64 2d 63 6f 6d | 70 2d 6d 61 70 20 74 6d |-old-com|p-map tm|
|00000260| 6d 2d 63 2d 70 72 6f 6d | 70 74 20 74 6d 6d 2d 6b |m-c-prom|pt tmm-k|
|00000270| 6d 2d 6c 69 73 74 20 74 | 6d 6d 2d 74 61 62 6c 65 |m-list t|mm-table|
|00000280| 2d 75 6e 64 65 66 5d 20 | 32 29 0a 23 40 32 35 32 |-undef] |2).#@252|
|00000290| 20 54 65 78 74 2d 6d 6f | 64 65 20 65 6d 75 6c 61 | Text-mo|de emula|
|000002a0| 74 69 6f 6e 20 6f 66 20 | 6c 6f 6f 6b 69 6e 67 20 |tion of |looking |
|000002b0| 61 6e 64 20 63 68 6f 6f | 73 69 6e 67 20 66 72 6f |and choo|sing fro|
|000002c0| 6d 20 61 20 6d 65 6e 75 | 62 61 72 2e 0a 53 65 65 |m a menu|bar..See|
|000002d0| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | the doc|umentati|
|000002e0| 6f 6e 20 66 6f 72 20 60 | 74 6d 6d 2d 70 72 6f 6d |on for `|tmm-prom|
|000002f0| 70 74 27 2e 0a 58 2d 50 | 4f 53 49 54 49 4f 4e 2c |pt'..X-P|OSITION,|
|00000300| 20 69 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 73 70 65 | if non-|nil, spe|
|00000310| 63 69 66 69 65 73 20 61 | 20 68 6f 72 69 7a 6f 6e |cifies a| horizon|
|00000320| 74 61 6c 20 70 6f 73 69 | 74 69 6f 6e 20 77 69 74 |tal posi|tion wit|
|00000330| 68 69 6e 20 74 68 65 20 | 6d 65 6e 75 20 62 61 72 |hin the |menu bar|
|00000340| 3b 0a 77 65 20 6d 61 6b | 65 20 74 68 61 74 20 6d |;.we mak|e that m|
|00000350| 65 6e 75 20 62 61 72 20 | 69 74 65 6d 20 28 74 68 |enu bar |item (th|
|00000360| 65 20 6f 6e 65 20 61 74 | 20 74 68 61 74 20 70 6f |e one at| that po|
|00000370| 73 69 74 69 6f 6e 29 20 | 74 68 65 20 64 65 66 61 |sition) |the defa|
|00000380| 75 6c 74 20 63 68 6f 69 | 63 65 2e 1f 0a 28 64 65 |ult choi|ce...(de|
|00000390| 66 61 6c 69 61 73 20 27 | 74 6d 6d 2d 6d 65 6e 75 |falias '|tmm-menu|
|000003a0| 62 61 72 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |bar #[(&|optional|
|000003b0| 20 78 2d 70 6f 73 69 74 | 69 6f 6e 29 20 22 c0 c1 | x-posit|ion) "..|
|000003c0| 21 88 c2 c3 21 c4 1d 1e | 06 0e 07 89 1e 08 83 35 |!...!...|.......5|
|000003d0| 00 0e 08 40 89 1e 09 0e | 06 9e 1e 5c 6e cb cc 0e |...@....|...\n...|
|000003e0| 5c 6e 0e 06 5c 22 0e 5c | 6e 43 5c 22 16 06 2a 0e |\n..\".\|nC\"..*.|
|000003f0| 08 41 89 16 08 84 13 00 | 29 0e 0d 83 89 00 0e 06 |.A......|).......|
|00000400| c4 ce 1e 0f 1e 5c 6e 89 | 1e 10 83 84 00 0e 0f 0e |.....\n.|........|
|00000410| 0d 57 83 84 00 0e 10 40 | 16 5c 6e 0e 10 40 3a 83 |.W.....@|.\n..@:.|
|00000420| 7b 00 0e 10 40 41 3a 83 | 7b 00 0e 10 40 41 40 3b |{...@A:.|{...@A@;|
|00000430| 83 7b 00 0e 0f 0e 10 40 | 41 40 47 5c 5c d1 5c 5c |.{.....@|A@G\\.\\|
|00000440| 16 0f 0e 10 41 89 16 10 | 84 49 00 0e 5c 6e 40 15 |....A...|.I..\n@.|
|00000450| 2b d2 0e 06 c4 0d 23 2a | 87 22 20 5b 72 75 6e 2d |+.....#*|." [run-|
|00000460| 68 6f 6f 6b 73 20 6d 65 | 6e 75 2d 62 61 72 2d 75 |hooks me|nu-bar-u|
|00000470| 70 64 61 74 65 2d 68 6f | 6f 6b 20 74 6d 6d 2d 67 |pdate-ho|ok tmm-g|
|00000480| 65 74 2d 6b 65 79 62 69 | 6e 64 20 5b 6d 65 6e 75 |et-keybi|nd [menu|
|00000490| 2d 62 61 72 5d 20 6e 69 | 6c 20 6d 65 6e 75 2d 62 |-bar] ni|l menu-b|
|000004a0| 61 72 2d 69 74 65 6d 20 | 6d 65 6e 75 2d 62 61 72 |ar-item |menu-bar|
|000004b0| 20 6d 65 6e 75 2d 62 61 | 72 2d 66 69 6e 61 6c 2d | menu-ba|r-final-|
|000004c0| 69 74 65 6d 73 20 6c 69 | 73 74 20 69 74 65 6d 20 |items li|st item |
|000004d0| 74 68 69 73 2d 6f 6e 65 | 20 61 70 70 65 6e 64 20 |this-one| append |
|000004e0| 64 65 6c 71 20 78 2d 70 | 6f 73 69 74 69 6f 6e 20 |delq x-p|osition |
|000004f0| 30 20 63 6f 6c 75 6d 6e | 20 74 61 69 6c 20 31 20 |0 column| tail 1 |
|00000500| 74 6d 6d 2d 70 72 6f 6d | 70 74 5d 20 35 20 28 23 |tmm-prom|pt] 5 (#|
|00000510| 24 20 2e 20 36 35 37 29 | 20 6e 69 6c 5d 29 0a 23 |$ . 657)| nil]).#|
|00000520| 40 32 32 35 20 54 65 78 | 74 2d 6d 6f 64 65 20 65 |@225 Tex|t-mode e|
|00000530| 6d 75 6c 61 74 69 6f 6e | 20 6f 66 20 6c 6f 6f 6b |mulation| of look|
|00000540| 69 6e 67 20 61 6e 64 20 | 63 68 6f 6f 73 69 6e 67 |ing and |choosing|
|00000550| 20 66 72 6f 6d 20 61 20 | 6d 65 6e 75 62 61 72 2e | from a |menubar.|
|00000560| 0a 54 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 69 73 |.This co|mmand is|
|00000570| 20 75 73 65 64 20 77 68 | 65 6e 20 79 6f 75 20 63 | used wh|en you c|
|00000580| 6c 69 63 6b 20 74 68 65 | 20 6d 6f 75 73 65 20 69 |lick the| mouse i|
|00000590| 6e 20 74 68 65 20 6d 65 | 6e 75 62 61 72 0a 6f 6e |n the me|nubar.on|
|000005a0| 20 61 20 63 6f 6e 73 6f | 6c 65 20 77 68 69 63 68 | a conso|le which|
|000005b0| 20 68 61 73 20 6e 6f 20 | 77 69 6e 64 6f 77 20 73 | has no |window s|
|000005c0| 79 73 74 65 6d 20 62 75 | 74 20 64 6f 65 73 20 68 |ystem bu|t does h|
|000005d0| 61 76 65 20 61 20 6d 6f | 75 73 65 2e 0a 53 65 65 |ave a mo|use..See|
|000005e0| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | the doc|umentati|
|000005f0| 6f 6e 20 66 6f 72 20 60 | 74 6d 6d 2d 70 72 6f 6d |on for `|tmm-prom|
|00000600| 70 74 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |pt'...(d|efalias |
|00000610| 27 74 6d 6d 2d 6d 65 6e | 75 62 61 72 2d 6d 6f 75 |'tmm-men|ubar-mou|
|00000620| 73 65 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 09 |se #[(ev|ent) "..|
|00000630| 89 19 41 40 29 1a c3 5c | 6e 38 29 40 21 87 22 20 |..A@)..\|n8)@!." |
|00000640| 5b 74 6d 6d 2d 6d 65 6e | 75 62 61 72 20 65 76 65 |[tmm-men|ubar eve|
|00000650| 6e 74 20 70 6f 73 69 74 | 69 6f 6e 20 32 5d 20 34 |nt posit|ion 2] 4|
|00000660| 20 28 23 24 20 2e 20 31 | 33 31 37 29 20 22 65 22 | (#$ . 1|317) "e"|
|00000670| 5d 29 0a 23 40 35 37 20 | 53 74 72 69 6e 67 20 74 |]).#@57 |String t|
|00000680| 6f 20 69 6e 73 65 72 74 | 20 62 65 74 77 65 65 6e |o insert| between|
|00000690| 20 73 68 6f 72 74 63 75 | 74 20 61 6e 64 20 6d 65 | shortcu|t and me|
|000006a0| 6e 75 20 69 74 65 6d 20 | 6f 72 20 6e 69 6c 2e 1f |nu item |or nil..|
|000006b0| 0a 28 64 65 66 76 61 72 | 20 74 6d 6d 2d 6d 69 64 |.(defvar| tmm-mid|
|000006c0| 2d 70 72 6f 6d 70 74 20 | 22 3d 3d 3e 22 20 28 23 |-prompt |"==>" (#|
|000006d0| 24 20 2e 20 31 36 35 36 | 29 29 0a 23 40 33 34 20 |$ . 1656|)).#@34 |
|000006e0| 41 20 70 6c 61 63 65 20 | 74 6f 20 73 74 6f 72 65 |A place |to store|
|000006f0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 6d 61 70 2e | minibuf|fer map.|
|00000700| 1f 0a 28 64 65 66 76 61 | 72 20 74 6d 6d 2d 6d 62 |..(defva|r tmm-mb|
|00000710| 2d 6d 61 70 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |-map nil| (#$ . 1|
|00000720| 37 36 30 29 29 0a 23 40 | 31 32 37 20 53 74 72 69 |760)).#@|127 Stri|
|00000730| 6e 67 20 74 6f 20 69 6e | 73 65 72 74 20 61 74 20 |ng to in|sert at |
|00000740| 74 6f 70 20 6f 66 20 63 | 6f 6d 70 6c 65 74 69 6f |top of c|ompletio|
|00000750| 6e 20 62 75 66 66 65 72 | 2e 0a 49 66 20 74 68 69 |n buffer|..If thi|
|00000760| 73 20 69 73 20 6e 69 6c | 2c 20 64 65 6c 65 74 65 |s is nil|, delete|
|00000770| 20 65 76 65 6e 20 74 68 | 65 20 75 73 75 61 6c 20 | even th|e usual |
|00000780| 68 65 6c 70 20 74 65 78 | 74 0a 61 6e 64 20 73 68 |help tex|t.and sh|
|00000790| 6f 77 20 6a 75 73 74 20 | 74 68 65 20 61 6c 74 65 |ow just |the alte|
|000007a0| 72 6e 61 74 69 76 65 73 | 2e 1f 0a 28 64 65 66 76 |rnatives|...(defv|
|000007b0| 61 72 20 74 6d 6d 2d 63 | 6f 6d 70 6c 65 74 69 6f |ar tmm-c|ompletio|
|000007c0| 6e 2d 70 72 6f 6d 70 74 | 20 22 50 72 65 73 73 20 |n-prompt| "Press |
|000007d0| 50 61 67 65 55 70 20 4b | 65 79 20 74 6f 20 72 65 |PageUp K|ey to re|
|000007e0| 61 63 68 20 74 68 69 73 | 20 62 75 66 66 65 72 20 |ach this| buffer |
|000007f0| 66 72 6f 6d 20 74 68 65 | 20 6d 69 6e 69 62 75 66 |from the| minibuf|
|00000800| 66 65 72 2e 5c 6e 41 6c | 74 65 72 6e 61 74 69 76 |fer.\nAl|ternativ|
|00000810| 65 6c 79 2c 20 79 6f 75 | 20 63 61 6e 20 75 73 65 |ely, you| can use|
|00000820| 20 55 70 2f 44 6f 77 6e | 20 6b 65 79 73 20 28 6f | Up/Down| keys (o|
|00000830| 72 20 79 6f 75 72 20 48 | 69 73 74 6f 72 79 20 6b |r your H|istory k|
|00000840| 65 79 73 29 20 74 6f 20 | 63 68 61 6e 67 65 5c 6e |eys) to |change\n|
|00000850| 74 68 65 20 69 74 65 6d | 20 69 6e 20 74 68 65 20 |the item| in the |
|00000860| 6d 69 6e 69 62 75 66 66 | 65 72 2c 20 61 6e 64 20 |minibuff|er, and |
|00000870| 70 72 65 73 73 20 52 45 | 54 20 77 68 65 6e 20 79 |press RE|T when y|
|00000880| 6f 75 20 61 72 65 20 64 | 6f 6e 65 2c 20 6f 72 20 |ou are d|one, or |
|00000890| 70 72 65 73 73 20 74 68 | 65 20 5c 6e 6d 61 72 6b |press th|e \nmark|
|000008a0| 65 64 20 6c 65 74 74 65 | 72 73 20 74 6f 20 70 69 |ed lette|rs to pi|
|000008b0| 63 6b 20 75 70 20 79 6f | 75 72 20 63 68 6f 69 63 |ck up yo|ur choic|
|000008c0| 65 2e 20 20 54 79 70 65 | 20 43 2d 67 20 6f 72 20 |e.  Type| C-g or |
|000008d0| 45 53 43 20 45 53 43 20 | 45 53 43 20 74 6f 20 63 |ESC ESC |ESC to c|
|000008e0| 61 6e 63 65 6c 2e 5c 6e | 22 20 28 23 24 20 2e 20 |ancel.\n|" (#$ . |
|000008f0| 31 38 33 36 29 29 0a 23 | 40 35 34 36 20 54 65 78 |1836)).#|@546 Tex|
|00000900| 74 2d 6d 6f 64 65 20 65 | 6d 75 6c 61 74 69 6f 6e |t-mode e|mulation|
|00000910| 20 6f 66 20 63 61 6c 6c | 69 6e 67 20 74 68 65 20 | of call|ing the |
|00000920| 62 69 6e 64 69 6e 67 73 | 20 69 6e 20 6b 65 79 6d |bindings| in keym|
|00000930| 61 70 2e 0a 43 72 65 61 | 74 65 73 20 61 20 74 65 |ap..Crea|tes a te|
|00000940| 78 74 2d 6d 6f 64 65 20 | 6d 65 6e 75 20 6f 66 20 |xt-mode |menu of |
|00000950| 70 6f 73 73 69 62 6c 65 | 20 63 68 6f 69 63 65 73 |possible| choices|
|00000960| 2e 20 20 59 6f 75 20 63 | 61 6e 20 61 63 63 65 73 |.  You c|an acces|
|00000970| 73 20 74 68 65 20 65 6c | 65 6d 65 6e 74 73 0a 69 |s the el|ements.i|
|00000980| 6e 20 74 68 65 20 6d 65 | 6e 75 20 69 6e 20 74 77 |n the me|nu in tw|
|00000990| 6f 20 77 61 79 73 3a 0a | 20 20 20 2a 29 20 20 76 |o ways:.|   *)  v|
|000009a0| 69 61 20 68 69 73 74 6f | 72 79 20 6d 65 63 68 61 |ia histo|ry mecha|
|000009b0| 6e 69 73 6d 20 66 72 6f | 6d 20 6d 69 6e 69 62 75 |nism fro|m minibu|
|000009c0| 66 66 65 72 3b 0a 20 20 | 20 2a 29 20 20 4f 72 20 |ffer;.  | *)  Or |
|000009d0| 76 69 61 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 62 |via comp|letion-b|
|000009e0| 75 66 66 65 72 20 74 68 | 61 74 20 69 73 20 61 75 |uffer th|at is au|
|000009f0| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 73 68 6f 77 |tomatica|lly show|
|00000a00| 6e 2e 0a 54 68 65 20 6c | 61 73 74 20 61 6c 74 65 |n..The l|ast alte|
|00000a10| 72 6e 61 74 69 76 65 20 | 69 73 20 63 75 72 72 65 |rnative |is curre|
|00000a20| 6e 74 6c 79 20 61 20 68 | 61 63 6b 2c 20 79 6f 75 |ntly a h|ack, you|
|00000a30| 20 63 61 6e 6e 6f 74 20 | 75 73 65 20 6d 6f 75 73 | cannot |use mous|
|00000a40| 65 20 72 65 6c 69 61 62 | 6c 79 2e 0a 0a 4d 45 4e |e reliab|ly...MEN|
|00000a50| 55 20 69 73 20 6c 69 6b | 65 20 74 68 65 20 4d 45 |U is lik|e the ME|
|00000a60| 4e 55 20 61 72 67 75 6d | 65 6e 74 20 74 6f 20 60 |NU argum|ent to `|
|00000a70| 78 2d 70 6f 70 75 70 2d | 6d 65 6e 75 27 3a 20 65 |x-popup-|menu': e|
|00000a80| 69 74 68 65 72 20 61 0a | 6b 65 79 6d 61 70 20 6f |ither a.|keymap o|
|00000a90| 72 20 61 6e 20 61 6c 69 | 73 74 20 6f 66 20 61 6c |r an ali|st of al|
|00000aa0| 69 73 74 73 2e 0a 44 45 | 46 41 55 4c 54 2d 49 54 |ists..DE|FAULT-IT|
|00000ab0| 45 4d 2c 20 69 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |EM, if n|on-nil, |
|00000ac0| 73 70 65 63 69 66 69 65 | 73 20 61 6e 20 69 6e 69 |specifie|s an ini|
|00000ad0| 74 69 61 6c 20 64 65 66 | 61 75 6c 74 20 63 68 6f |tial def|ault cho|
|00000ae0| 69 63 65 2e 0a 49 74 73 | 20 76 61 6c 75 65 20 73 |ice..Its| value s|
|00000af0| 68 6f 75 6c 64 20 62 65 | 20 61 6e 20 65 76 65 6e |hould be| an even|
|00000b00| 74 20 74 68 61 74 20 68 | 61 73 20 61 20 62 69 6e |t that h|as a bin|
|00000b10| 64 69 6e 67 20 69 6e 20 | 4d 45 4e 55 2e 1f 0a 28 |ding in |MENU...(|
|00000b20| 64 65 66 61 6c 69 61 73 | 20 27 74 6d 6d 2d 70 72 |defalias| 'tmm-pr|
|00000b30| 6f 6d 70 74 20 23 5b 28 | 6d 65 6e 75 20 26 6f 70 |ompt #[(|menu &op|
|00000b40| 74 69 6f 6e 61 6c 20 69 | 6e 2d 70 6f 70 75 70 20 |tional i|n-popup |
|00000b50| 64 65 66 61 75 6c 74 2d | 69 74 65 6d 29 20 22 c0 |default-|item) ".|
|00000b60| c1 89 89 89 89 89 89 89 | 89 89 89 c2 0b 21 3f 1c |........|.....!?.|
|00000b70| 1d 1e 06 1e 07 1e 08 1e | 09 1e 5c 6e 1e 0b 1e 5c |........|..\n...\|
|00000b80| 66 1e 0d 1e 0e 1e 0f 1e | 10 d1 d2 21 88 d3 d4 0b |f.......|...!....|
|00000b90| 5c 22 88 5c 66 83 45 00 | 0e 0f 47 d5 55 83 45 00 |\".\f.E.|..G.U.E.|
|00000ba0| 0e 0f 40 41 15 82 16 01 | 0e 0f 83 ce 00 d6 1e 17 |..@A....|........|
|00000bb0| 0e 18 83 58 00 d9 0e 0f | 21 16 0f 0e 1a 83 8d 00 |...X....|!.......|
|00000bc0| 0b 89 1e 1b 83 8c 00 0e | 1b 40 a2 0e 1a 3d 84 8c |........|.@...=..|
|00000bd0| 00 0e 1b 40 3a 83 83 00 | 0e 1b 40 41 a2 3b 83 83 |...@:...|..@A.;..|
|00000be0| 00 0e 17 54 16 17 0e 1b | 41 89 16 1b 84 64 00 29 |...T....|A....d.)|
|00000bf0| dc d3 dd 0e 0f 5c 22 21 | 89 16 0d 47 16 5c 66 de |.....\"!|...G.\f.|
|00000c00| 0e 0d 89 89 89 24 16 0d | 0e 5c 66 0e 17 5a d5 5a |.....$..|.\f..Z.Z|
|00000c10| 0e 0d 38 16 5c 6e df e0 | e1 5c 22 88 e2 8e e3 0e |..8.\n..|.\".....|
|00000c20| 10 e4 50 0e 0f c1 e5 c1 | cd 0e 5c 66 89 5c 5c 0e |..P.....|..\f.\\.|
|00000c30| 17 5a 42 26 06 16 0e 2a | e6 0e 0e 0e 0f 5c 22 41 |.ZB&...*|.....\"A|
|00000c40| 89 15 84 02 01 0e 0e 47 | 0e 5c 6e 47 56 83 02 01 |.......G|.\nGV...|
|00000c50| 0e 0e d6 0e 5c 6e 47 4f | 0e 5c 6e 98 83 02 01 0e |....\nGO|.\n.....|
|00000c60| 0e 0e 5c 6e 47 c1 4f 16 | 0e e6 0e 0e 0e 0f 5c 22 |..\nG.O.|......\"|
|00000c70| 41 15 0d 84 16 01 e7 0e | 0e 0e 0f 5c 22 16 0e e6 |A.......|...\"...|
|00000c80| 0e 0e 0e 0f 5c 22 41 15 | 0d 40 16 06 0d 41 15 0e |....\"A.|.@...A..|
|00000c90| 28 83 26 01 0d 82 64 01 | 5c 66 83 31 01 e9 0d e5 |(.&...d.|\f.1....|
|00000ca0| 5c 22 82 64 01 c2 0d 21 | 83 50 01 0d 39 83 40 01 |\".d...!|.P..9.@.|
|00000cb0| ea 0d 21 15 c1 eb ec 8f | 88 c1 ed ee 8f 88 e9 0d |..!.....|........|
|00000cc0| 21 82 64 01 0d 85 64 01 | 0e 06 83 63 01 0e 06 16 |!.d...d.|...c....|
|00000cd0| 2f f0 0d 21 82 64 01 0d | 2e 0d 87 22 20 5b 22 4d |/..!.d..|..." ["M|
|00000ce0| 65 6e 75 20 62 61 72 22 | 20 6e 69 6c 20 6b 65 79 |enu bar"| nil key|
|00000cf0| 6d 61 70 70 20 6d 65 6e | 75 20 6e 6f 74 2d 6d 65 |mapp men|u not-me|
|00000d00| 6e 75 20 63 68 6f 69 63 | 65 20 63 68 6f 73 65 6e |nu choic|e chosen|
|00000d10| 2d 73 74 72 69 6e 67 20 | 74 6d 6d 2d 73 68 6f 72 |-string |tmm-shor|
|00000d20| 74 2d 63 75 74 73 20 74 | 6d 6d 2d 6f 6c 64 2d 63 |t-cuts t|mm-old-c|
|00000d30| 6f 6d 70 2d 6d 61 70 20 | 74 6d 6d 2d 6f 6c 64 2d |omp-map |tmm-old-|
|00000d40| 6d 62 2d 6d 61 70 20 74 | 6d 6d 2d 63 2d 70 72 6f |mb-map t|mm-c-pro|
|00000d50| 6d 70 74 20 74 6d 6d 2d | 74 61 62 6c 65 2d 75 6e |mpt tmm-|table-un|
|00000d60| 64 65 66 20 68 69 73 74 | 6f 72 79 2d 6c 65 6e 20 |def hist|ory-len |
|00000d70| 68 69 73 74 6f 72 79 20 | 6f 75 74 20 74 6d 6d 2d |history |out tmm-|
|00000d80| 6b 6d 2d 6c 69 73 74 20 | 67 6c 2d 73 74 72 20 72 |km-list |gl-str r|
|00000d90| 75 6e 2d 68 6f 6f 6b 73 | 20 61 63 74 69 76 61 74 |un-hooks| activat|
|00000da0| 65 2d 6d 65 6e 75 62 61 | 72 2d 68 6f 6f 6b 20 6d |e-menuba|r-hook m|
|00000db0| 61 70 63 61 72 20 23 5b | 28 65 6c 74 29 20 22 08 |apcar #[|(elt) ".|
|00000dc0| 3b 83 09 00 08 89 11 87 | 08 3c 85 12 00 c2 08 0b |;.......|.<......|
|00000dd0| 5c 22 87 22 20 5b 65 6c | 74 20 67 6c 2d 73 74 72 |\"." [el|t gl-str|
|00000de0| 20 74 6d 6d 2d 67 65 74 | 2d 6b 65 79 6d 61 70 20 | tmm-get|-keymap |
|00000df0| 6e 6f 74 2d 6d 65 6e 75 | 5d 20 33 5d 20 31 20 30 |not-menu|] 3] 1 0|
|00000e00| 20 69 6e 64 65 78 2d 6f | 66 2d 64 65 66 61 75 6c | index-o|f-defaul|
|00000e10| 74 20 74 6d 6d 2d 6d 69 | 64 2d 70 72 6f 6d 70 74 |t tmm-mi|d-prompt|
|00000e20| 20 74 6d 6d 2d 61 64 64 | 2d 73 68 6f 72 74 63 75 | tmm-add|-shortcu|
|00000e30| 74 73 20 64 65 66 61 75 | 6c 74 2d 69 74 65 6d 20 |ts defau|lt-item |
|00000e40| 74 61 69 6c 20 72 65 76 | 65 72 73 65 20 63 61 72 |tail rev|erse car|
|00000e50| 20 61 70 70 65 6e 64 20 | 61 64 64 2d 68 6f 6f 6b | append |add-hook|
|00000e60| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 73 65 74 75 | minibuf|fer-setu|
|00000e70| 70 2d 68 6f 6f 6b 20 74 | 6d 6d 2d 61 64 64 2d 70 |p-hook t|mm-add-p|
|00000e80| 72 6f 6d 70 74 20 28 28 | 62 79 74 65 2d 63 6f 64 |rompt ((|byte-cod|
|00000e90| 65 20 22 8a c0 c1 c2 5c | 22 88 c3 c4 21 83 18 00 |e "....\|"...!...|
|00000ea0| c4 71 88 c5 0e 06 21 88 | c7 70 21 88 29 c0 87 22 |.q....!.|.p!.).."|
|00000eb0| 20 5b 72 65 6d 6f 76 65 | 2d 68 6f 6f 6b 20 6d 69 | [remove|-hook mi|
|00000ec0| 6e 69 62 75 66 66 65 72 | 2d 73 65 74 75 70 2d 68 |nibuffer|-setup-h|
|00000ed0| 6f 6f 6b 20 74 6d 6d 2d | 61 64 64 2d 70 72 6f 6d |ook tmm-|add-prom|
|00000ee0| 70 74 20 67 65 74 2d 62 | 75 66 66 65 72 20 22 2a |pt get-b|uffer "*|
|00000ef0| 43 6f 6d 70 6c 65 74 69 | 6f 6e 73 2a 22 20 75 73 |Completi|ons*" us|
|00000f00| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 74 6d 6d 2d |e-local-|map tmm-|
|00000f10| 6f 6c 64 2d 63 6f 6d 70 | 2d 6d 61 70 20 62 75 72 |old-comp|-map bur|
|00000f20| 79 2d 62 75 66 66 65 72 | 5d 20 33 29 29 20 63 6f |y-buffer|] 3)) co|
|00000f30| 6d 70 6c 65 74 69 6e 67 | 2d 72 65 61 64 20 22 20 |mpleting|-read " |
|00000f40| 28 75 70 2f 64 6f 77 6e | 20 74 6f 20 63 68 61 6e |(up/down| to chan|
|00000f50| 67 65 2c 20 50 67 55 70 | 20 74 6f 20 6d 65 6e 75 |ge, PgUp| to menu|
|00000f60| 29 3a 20 22 20 74 20 61 | 73 73 6f 63 20 74 72 79 |): " t a|ssoc try|
|00000f70| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 69 6e 2d 70 |-complet|ion in-p|
|00000f80| 6f 70 75 70 20 74 6d 6d | 2d 70 72 6f 6d 70 74 20 |opup tmm|-prompt |
|00000f90| 69 6e 64 69 72 65 63 74 | 2d 66 75 6e 63 74 69 6f |indirect|-functio|
|00000fa0| 6e 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |n (byte-|code "..|
|00000fb0| 21 87 22 20 5b 72 65 71 | 75 69 72 65 20 6d 6f 75 |!." [req|uire mou|
|00000fc0| 73 65 5d 20 32 29 20 28 | 28 65 72 72 6f 72 29 29 |se] 2) (|(error))|
|00000fd0| 20 28 78 2d 70 6f 70 75 | 70 2d 6d 65 6e 75 20 6e | (x-popu|p-menu n|
|00000fe0| 69 6c 20 63 68 6f 69 63 | 65 29 20 28 28 65 72 72 |il choic|e) ((err|
|00000ff0| 6f 72 29 29 20 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |or)) las|t-comman|
|00001000| 64 2d 65 76 65 6e 74 20 | 63 61 6c 6c 2d 69 6e 74 |d-event |call-int|
|00001010| 65 72 61 63 74 69 76 65 | 6c 79 5d 20 31 35 20 28 |eractive|ly] 15 (|
|00001020| 23 24 20 2e 20 32 33 30 | 31 29 5d 29 0a 23 40 32 |#$ . 230|1)]).#@2|
|00001030| 31 36 20 41 64 64 73 20 | 73 68 6f 72 74 63 75 74 |16 Adds |shortcut|
|00001040| 73 20 74 6f 20 63 61 72 | 73 20 6f 66 20 65 6c 65 |s to car|s of ele|
|00001050| 6d 65 6e 74 73 20 6f 66 | 20 74 68 65 20 6c 69 73 |ments of| the lis|
|00001060| 74 2e 0a 54 61 6b 65 73 | 20 61 20 6c 69 73 74 20 |t..Takes| a list |
|00001070| 6f 66 20 6c 69 73 74 73 | 20 77 69 74 68 20 61 20 |of lists| with a |
|00001080| 73 74 72 69 6e 67 20 61 | 73 20 63 61 72 2c 20 72 |string a|s car, r|
|00001090| 65 74 75 72 6e 73 20 6c | 69 73 74 20 77 69 74 68 |eturns l|ist with|
|000010a0| 0a 73 68 6f 72 74 63 75 | 74 73 20 61 64 64 65 64 |.shortcu|ts added|
|000010b0| 20 74 6f 20 74 68 65 73 | 65 20 63 61 72 73 2e 0a | to thes|e cars..|
|000010c0| 53 74 6f 72 65 73 20 61 | 20 6c 69 73 74 20 6f 66 |Stores a| list of|
|000010d0| 20 61 6c 6c 20 74 68 65 | 20 73 68 6f 72 74 63 75 | all the| shortcu|
|000010e0| 74 73 20 69 6e 20 74 68 | 65 20 66 72 65 65 20 76 |ts in th|e free v|
|000010f0| 61 72 69 61 62 6c 65 20 | 60 74 6d 6d 2d 73 68 6f |ariable |`tmm-sho|
|00001100| 72 74 2d 63 75 74 73 27 | 2e 1f 0a 28 64 65 66 61 |rt-cuts'|...(defa|
|00001110| 6c 69 61 73 20 27 74 6d | 6d 2d 61 64 64 2d 73 68 |lias 'tm|m-add-sh|
|00001120| 6f 72 74 63 75 74 73 20 | 23 5b 28 6c 69 73 74 29 |ortcuts |#[(list)|
|00001130| 20 22 c0 19 c2 c3 c4 0d | 21 5c 22 29 87 22 20 5b | "......|!\")." [|
|00001140| 30 20 6e 65 78 74 2d 73 | 68 6f 72 74 63 75 74 2d |0 next-s|hortcut-|
|00001150| 6e 75 6d 62 65 72 20 6d | 61 70 63 61 72 20 23 5b |number m|apcar #[|
|00001160| 28 65 6c 74 29 20 22 08 | 40 c1 89 1a 1b 89 1c c5 |(elt) ".|@.......|
|00001170| c6 4f 96 89 13 0e 07 9d | 83 25 00 c8 c9 5c 66 5c |.O......|.%...\f\|
|00001180| 22 83 25 00 5c 66 c6 94 | 89 12 89 54 4f 96 13 0b |".%.\f..|...TO...|
|00001190| 0e 07 9d 83 43 00 0e 5c | 6e cb 57 83 41 00 cc cd |....C..\|n.W.A...|
|000011a0| 0e 5c 6e 5c 22 13 0e 5c | 6e 54 16 5c 6e 82 43 00 |.\n\"..\|nT.\n.C.|
|000011b0| c1 13 0b 84 4b 00 08 82 | 59 00 0b 0e 07 42 16 07 |....K...|Y....B..|
|000011c0| 0b 0e 0e 5c 66 51 08 41 | 42 2b 87 22 20 5b 65 6c |...\fQ.A|B+." [el|
|000011d0| 74 20 6e 69 6c 20 62 20 | 66 20 73 74 72 20 30 20 |t nil b |f str 0 |
|000011e0| 31 20 74 6d 6d 2d 73 68 | 6f 72 74 2d 63 75 74 73 |1 tmm-sh|ort-cuts|
|000011f0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 20 | string-|match " |
|00001200| 5c 5c 28 5b 5e 20 5d 5c | 5c 29 22 20 6e 65 78 74 |\\([^ ]\|\)" next|
|00001210| 2d 73 68 6f 72 74 63 75 | 74 2d 6e 75 6d 62 65 72 |-shortcu|t-number|
|00001220| 20 31 30 20 66 6f 72 6d | 61 74 20 22 25 64 22 20 | 10 form|at "%d" |
|00001230| 74 6d 6d 2d 6d 69 64 2d | 70 72 6f 6d 70 74 5d 20 |tmm-mid-|prompt] |
|00001240| 34 5d 20 72 65 76 65 72 | 73 65 20 6c 69 73 74 5d |4] rever|se list]|
|00001250| 20 34 20 28 23 24 20 2e | 20 34 31 34 37 29 5d 29 | 4 (#$ .| 4147)])|
|00001260| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 6d 6d 2d |.(defali|as 'tmm-|
|00001270| 64 65 66 69 6e 65 2d 6b | 65 79 73 20 23 5b 28 6d |define-k|eys #[(m|
|00001280| 69 6e 69 62 75 66 66 65 | 72 29 20 22 c0 c1 5c 6e |inibuffe|r) "..\n|
|00001290| 5c 22 88 0b 85 2b 00 c4 | c5 20 c6 c7 23 88 c4 c5 |\"...+..|. ..#...|
|000012a0| 20 c8 c7 23 88 c4 c5 20 | c9 c7 23 88 c4 c5 20 ca | ..#... |..#... .|
|000012b0| cb 23 88 c4 c5 20 cc cd | 23 87 22 20 5b 6d 61 70 |.#... ..|#." [map|
|000012c0| 63 61 72 20 23 5b 28 73 | 74 72 29 20 22 c0 c1 20 |car #[(s|tr) ".. |
|000012d0| 5c 6e c3 23 88 c0 c1 20 | 5c 6e 97 c3 23 87 22 20 |\n.#... |\n..#." |
|000012e0| 5b 64 65 66 69 6e 65 2d | 6b 65 79 20 63 75 72 72 |[define-|key curr|
|000012f0| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 73 74 |ent-loca|l-map st|
|00001300| 72 20 74 6d 6d 2d 73 68 | 6f 72 74 63 75 74 5d 20 |r tmm-sh|ortcut] |
|00001310| 34 5d 20 74 6d 6d 2d 73 | 68 6f 72 74 2d 63 75 74 |4] tmm-s|hort-cut|
|00001320| 73 20 6d 69 6e 69 62 75 | 66 66 65 72 20 64 65 66 |s minibu|ffer def|
|00001330| 69 6e 65 2d 6b 65 79 20 | 63 75 72 72 65 6e 74 2d |ine-key |current-|
|00001340| 6c 6f 63 61 6c 2d 6d 61 | 70 20 5b 70 61 67 65 75 |local-ma|p [pageu|
|00001350| 70 5d 20 74 6d 6d 2d 67 | 6f 74 6f 2d 63 6f 6d 70 |p] tmm-g|oto-comp|
|00001360| 6c 65 74 69 6f 6e 73 20 | 5b 70 72 69 6f 72 5d 20 |letions |[prior] |
|00001370| 22 1b 76 22 20 22 0e 22 | 20 6e 65 78 74 2d 68 69 |".v" "."| next-hi|
|00001380| 73 74 6f 72 79 2d 65 6c | 65 6d 65 6e 74 20 22 10 |story-el|ement ".|
|00001390| 22 20 70 72 65 76 69 6f | 75 73 2d 68 69 73 74 6f |" previo|us-histo|
|000013a0| 72 79 2d 65 6c 65 6d 65 | 6e 74 5d 20 34 5d 29 0a |ry-eleme|nt] 4]).|
|000013b0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 6d 6d 2d 61 |(defalia|s 'tmm-a|
|000013c0| 64 64 2d 70 72 6f 6d 70 | 74 20 23 5b 6e 69 6c 20 |dd-promp|t #[nil |
|000013d0| 22 c0 c1 c2 5c 22 88 c3 | c4 21 88 c5 c4 c6 c7 c8 |"...\"..|.!......|
|000013e0| 24 88 c9 20 1e 5c 6e cb | 20 16 5c 66 cd ce cf 20 |$.. .\n.| .\f... |
|000013f0| 0e 5c 66 5c 22 21 88 d0 | c8 21 88 d1 8b 88 8a d2 |.\f\"!..|.!......|
|00001400| d3 21 88 d4 d5 d6 21 21 | 71 88 cb 20 16 17 cd ce |.!....!!|q.. ....|
|00001410| cf 20 0e 17 5c 22 21 88 | d0 c7 21 88 d8 0e 5c 6e |. ..\"!.|..!...\n|
|00001420| 21 88 29 0e 19 63 29 87 | 22 20 5b 72 65 6d 6f 76 |!.)..c).|" [remov|
|00001430| 65 2d 68 6f 6f 6b 20 6d | 69 6e 69 62 75 66 66 65 |e-hook m|inibuffe|
|00001440| 72 2d 73 65 74 75 70 2d | 68 6f 6f 6b 20 74 6d 6d |r-setup-|hook tmm|
|00001450| 2d 61 64 64 2d 70 72 6f | 6d 70 74 20 6d 61 6b 65 |-add-pro|mpt make|
|00001460| 2d 6c 6f 63 61 6c 2d 68 | 6f 6f 6b 20 6d 69 6e 69 |-local-h|ook mini|
|00001470| 62 75 66 66 65 72 2d 65 | 78 69 74 2d 68 6f 6f 6b |buffer-e|xit-hook|
|00001480| 20 61 64 64 2d 68 6f 6f | 6b 20 74 6d 6d 2d 64 65 | add-hoo|k tmm-de|
|00001490| 6c 65 74 65 2d 6d 61 70 | 20 6e 69 6c 20 74 20 73 |lete-map| nil t s|
|000014a0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 77 |elected-|window w|
|000014b0| 69 6e 20 63 75 72 72 65 | 6e 74 2d 6c 6f 63 61 6c |in curre|nt-local|
|000014c0| 2d 6d 61 70 20 74 6d 6d | 2d 6f 6c 64 2d 6d 62 2d |-map tmm|-old-mb-|
|000014d0| 6d 61 70 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |map use-|local-ma|
|000014e0| 70 20 61 70 70 65 6e 64 | 20 6d 61 6b 65 2d 73 70 |p append| make-sp|
|000014f0| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 74 6d 6d 2d |arse-key|map tmm-|
|00001500| 64 65 66 69 6e 65 2d 6b | 65 79 73 20 28 28 62 79 |define-k|eys ((by|
|00001510| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 5c 22 1b |te-code |"..\n\".|
|00001520| c4 90 c5 0b 21 91 88 29 | c4 71 88 c6 62 88 0e 07 |....!..)|.q..b...|
|00001530| 83 1f 00 0e 07 63 88 82 | 28 00 c6 62 88 c6 c8 c9 |.....c..|(..b....|
|00001540| 21 7c 88 c0 87 22 20 5b | 6d 61 70 63 61 72 20 63 |!|..." [|mapcar c|
|00001550| 61 72 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 63 6f |ar minib|uffer-co|
|00001560| 6d 70 6c 65 74 69 6f 6e | 2d 74 61 62 6c 65 20 63 |mpletion|-table c|
|00001570| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 22 2a 43 6f 6d |ompletio|ns "*Com|
|00001580| 70 6c 65 74 69 6f 6e 73 | 2a 22 20 64 69 73 70 6c |pletions|*" displ|
|00001590| 61 79 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6c 69 |ay-compl|etion-li|
|000015a0| 73 74 20 31 20 74 6d 6d | 2d 63 6f 6d 70 6c 65 74 |st 1 tmm|-complet|
|000015b0| 69 6f 6e 2d 70 72 6f 6d | 70 74 20 73 65 61 72 63 |ion-prom|pt searc|
|000015c0| 68 2d 66 6f 72 77 61 72 | 64 20 22 50 6f 73 73 69 |h-forwar|d "Possi|
|000015d0| 62 6c 65 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 20 |ble comp|letions |
|000015e0| 61 72 65 3a 5c 6e 22 5d | 20 33 29 29 20 6f 74 68 |are:\n"]| 3)) oth|
|000015f0| 65 72 2d 77 69 6e 64 6f | 77 20 31 20 77 69 6e 64 |er-windo|w 1 wind|
|00001600| 6f 77 2d 62 75 66 66 65 | 72 20 45 6c 65 63 74 72 |ow-buffe|r Electr|
|00001610| 69 63 2d 70 6f 70 2d 75 | 70 2d 77 69 6e 64 6f 77 |ic-pop-u|p-window|
|00001620| 20 22 2a 43 6f 6d 70 6c | 65 74 69 6f 6e 73 2a 22 | "*Compl|etions*"|
|00001630| 20 74 6d 6d 2d 6f 6c 64 | 2d 63 6f 6d 70 2d 6d 61 | tmm-old|-comp-ma|
|00001640| 70 20 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |p select|-window |
|00001650| 74 6d 6d 2d 63 2d 70 72 | 6f 6d 70 74 5d 20 35 5d |tmm-c-pr|ompt] 5]|
|00001660| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 6d 6d |).(defal|ias 'tmm|
|00001670| 2d 64 65 6c 65 74 65 2d | 6d 61 70 20 23 5b 6e 69 |-delete-|map #[ni|
|00001680| 6c 20 22 c0 c1 c2 c3 23 | 88 5c 66 85 0d 00 c5 5c |l "....#|.\f....\|
|00001690| 66 21 87 22 20 5b 72 65 | 6d 6f 76 65 2d 68 6f 6f |f!." [re|move-hoo|
|000016a0| 6b 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 65 78 69 |k minibu|ffer-exi|
|000016b0| 74 2d 68 6f 6f 6b 20 74 | 6d 6d 2d 64 65 6c 65 74 |t-hook t|mm-delet|
|000016c0| 65 2d 6d 61 70 20 74 20 | 74 6d 6d 2d 6f 6c 64 2d |e-map t |tmm-old-|
|000016d0| 6d 62 2d 6d 61 70 20 75 | 73 65 2d 6c 6f 63 61 6c |mb-map u|se-local|
|000016e0| 2d 6d 61 70 5d 20 34 5d | 29 0a 23 40 34 32 20 43 |-map] 4]|).#@42 C|
|000016f0| 68 6f 6f 73 65 20 74 68 | 65 20 73 68 6f 72 74 63 |hoose th|e shortc|
|00001700| 75 74 20 74 68 61 74 20 | 74 68 65 20 75 73 65 72 |ut that |the user|
|00001710| 20 74 79 70 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 | typed..|.(defali|
|00001720| 61 73 20 27 74 6d 6d 2d | 73 68 6f 72 74 63 75 74 |as 'tmm-|shortcut|
|00001730| 20 23 5b 6e 69 6c 20 22 | c0 09 21 96 c2 1b 89 1c | #[nil "|..!.....|
|00001740| 0d 9d 85 32 00 c6 20 c7 | 9a 83 24 00 c8 20 88 c9 |...2.. .|..$.. ..|
|00001750| ca 5c 66 0e 0b 51 21 88 | cc 20 82 32 00 cd 20 88 |.\f..Q!.|. .2.. .|
|00001760| ce cf 0e 10 5c 22 88 0b | 63 88 d1 20 2a 87 22 20 |....\"..|c.. *." |
|00001770| 5b 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 |[char-to|-string |
|00001780| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 63 68 61 |last-com|mand-cha|
|00001790| 72 20 6e 69 6c 20 73 20 | 63 20 74 6d 6d 2d 73 68 |r nil s |c tmm-sh|
|000017a0| 6f 72 74 2d 63 75 74 73 | 20 62 75 66 66 65 72 2d |ort-cuts| buffer-|
|000017b0| 6e 61 6d 65 20 22 2a 43 | 6f 6d 70 6c 65 74 69 6f |name "*C|ompletio|
|000017c0| 6e 73 2a 22 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |ns*" beg|inning-o|
|000017d0| 66 2d 62 75 66 66 65 72 | 20 72 65 2d 73 65 61 72 |f-buffer| re-sear|
|000017e0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 5c 28 5e |ch-forwa|rd "\\(^|
|000017f0| 5c 5c 7c 5b 20 09 5d 5c | 5c 29 22 20 74 6d 6d 2d |\\|[ .]\|\)" tmm-|
|00001800| 6d 69 64 2d 70 72 6f 6d | 70 74 20 63 68 6f 6f 73 |mid-prom|pt choos|
|00001810| 65 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 65 72 61 |e-comple|tion era|
|00001820| 73 65 2d 62 75 66 66 65 | 72 20 6d 61 70 63 61 72 |se-buffe|r mapcar|
|00001830| 20 23 5b 28 65 6c 74 29 | 20 22 08 40 c1 5c 6e 47 | #[(elt)| ".@.\nG|
|00001840| 54 08 40 47 5e 4f 0b 5c | 6e 50 98 85 16 00 08 40 |T.@G^O.\|nP.....@|
|00001850| 89 14 87 22 20 5b 65 6c | 74 20 30 20 74 6d 6d 2d |..." [el|t 0 tmm-|
|00001860| 6d 69 64 2d 70 72 6f 6d | 70 74 20 63 20 73 5d 20 |mid-prom|pt c s] |
|00001870| 34 5d 20 74 6d 6d 2d 6b | 6d 2d 6c 69 73 74 20 65 |4] tmm-k|m-list e|
|00001880| 78 69 74 2d 6d 69 6e 69 | 62 75 66 66 65 72 5d 20 |xit-mini|buffer] |
|00001890| 35 20 28 23 24 20 2e 20 | 35 38 37 31 29 20 6e 69 |5 (#$ . |5871) ni|
|000018a0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|000018b0| 6d 6d 2d 67 6f 74 6f 2d | 63 6f 6d 70 6c 65 74 69 |mm-goto-|completi|
|000018c0| 6f 6e 73 20 23 5b 6e 69 | 6c 20 22 c0 20 11 c2 20 |ons #[ni|l ". .. |
|000018d0| 88 c3 c4 21 88 c5 09 21 | 88 c6 09 21 87 22 20 5b |...!...!|...!." [|
|000018e0| 62 75 66 66 65 72 2d 73 | 74 72 69 6e 67 20 74 6d |buffer-s|tring tm|
|000018f0| 6d 2d 63 2d 70 72 6f 6d | 70 74 20 65 72 61 73 65 |m-c-prom|pt erase|
|00001900| 2d 62 75 66 66 65 72 20 | 73 77 69 74 63 68 2d 74 |-buffer |switch-t|
|00001910| 6f 2d 62 75 66 66 65 72 | 2d 6f 74 68 65 72 2d 77 |o-buffer|-other-w|
|00001920| 69 6e 64 6f 77 20 22 2a | 43 6f 6d 70 6c 65 74 69 |indow "*|Completi|
|00001930| 6f 6e 73 2a 22 20 73 65 | 61 72 63 68 2d 66 6f 72 |ons*" se|arch-for|
|00001940| 77 61 72 64 20 73 65 61 | 72 63 68 2d 62 61 63 6b |ward sea|rch-back|
|00001950| 77 61 72 64 5d 20 32 20 | 6e 69 6c 20 6e 69 6c 5d |ward] 2 |nil nil]|
|00001960| 29 0a 23 40 33 38 33 20 | 50 72 65 70 65 6e 64 73 |).#@383 |Prepends|
|00001970| 20 28 44 4f 43 53 54 52 | 49 4e 47 20 45 56 45 4e | (DOCSTR|ING EVEN|
|00001980| 54 20 42 49 4e 44 49 4e | 47 29 20 74 6f 20 66 72 |T BINDIN|G) to fr|
|00001990| 65 65 20 76 61 72 69 61 | 62 6c 65 20 60 74 6d 6d |ee varia|ble `tmm|
|000019a0| 2d 6b 6d 2d 6c 69 73 74 | 27 2e 0a 54 68 65 20 76 |-km-list|'..The v|
|000019b0| 61 6c 75 65 73 20 61 72 | 65 20 64 65 64 75 63 65 |alues ar|e deduce|
|000019c0| 64 20 66 72 6f 6d 20 74 | 68 65 20 61 72 67 75 6d |d from t|he argum|
|000019d0| 65 6e 74 20 45 4c 54 2c | 20 74 68 61 74 20 73 68 |ent ELT,| that sh|
|000019e0| 6f 75 6c 64 20 62 65 20 | 61 6e 0a 65 6c 65 6d 65 |ould be |an.eleme|
|000019f0| 6e 74 20 6f 66 20 6b 65 | 79 6d 61 70 2c 20 61 6e |nt of ke|ymap, an|
|00001a00| 20 60 78 2d 70 6f 70 75 | 70 2d 6d 65 6e 75 27 20 | `x-popu|p-menu' |
|00001a10| 61 72 67 75 6d 65 6e 74 | 2c 20 6f 72 20 61 6e 20 |argument|, or an |
|00001a20| 65 6c 65 6d 65 6e 74 20 | 6f 66 0a 60 78 2d 70 6f |element |of.`x-po|
|00001a30| 70 75 70 2d 6d 65 6e 75 | 27 20 61 72 67 75 6d 65 |pup-menu|' argume|
|00001a40| 6e 74 20 28 77 68 65 6e | 20 49 4e 2d 58 2d 4d 45 |nt (when| IN-X-ME|
|00001a50| 4e 55 20 69 73 20 6e 6f | 74 2d 6e 69 6c 29 2e 0a |NU is no|t-nil)..|
|00001a60| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 61 64 |This fun|ction ad|
|00001a70| 64 73 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 20 6f |ds the e|lement o|
|00001a80| 6e 6c 79 20 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |nly if i|t is not|
|00001a90| 20 61 6c 72 65 61 64 79 | 20 70 72 65 73 65 6e 74 | already| present|
|00001aa0| 2e 0a 49 74 20 75 73 65 | 73 20 74 68 65 20 66 72 |..It use|s the fr|
|00001ab0| 65 65 20 76 61 72 69 61 | 62 6c 65 20 60 74 6d 6d |ee varia|ble `tmm|
|00001ac0| 2d 74 61 62 6c 65 2d 75 | 6e 64 65 66 27 20 74 6f |-table-u|ndef' to|
|00001ad0| 20 6b 65 65 70 20 75 6e | 64 65 66 69 6e 65 64 20 | keep un|defined |
|00001ae0| 6b 65 79 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |keys...(|defalias|
|00001af0| 20 27 74 6d 6d 2d 67 65 | 74 2d 6b 65 79 6d 61 70 | 'tmm-ge|t-keymap|
|00001b00| 20 23 5b 28 65 6c 74 20 | 26 6f 70 74 69 6f 6e 61 | #[(elt |&optiona|
|00001b10| 6c 20 69 6e 2d 78 2d 6d | 65 6e 75 29 20 22 c0 89 |l in-x-m|enu) "..|
|00001b20| 89 09 40 1a 1b 1c 1d 09 | 41 89 11 c6 3d 83 1e 00 |..@.....|A...=...|
|00001b30| 5c 6e c0 42 0e 07 42 89 | 16 07 82 54 01 c8 5c 6e |\n.B..B.|...T..\n|
|00001b40| 0e 07 5c 22 84 2e 01 09 | 3c 83 31 00 c9 09 21 82 |..\"....|<.1...!.|
|00001b50| 34 00 ca 09 21 83 3d 00 | 09 89 15 84 2e 01 09 a3 |4...!.=.|........|
|00001b60| 3c 83 4a 00 c9 09 a3 21 | 82 4e 00 ca 09 a3 21 83 |<.J....!|.N....!.|
|00001b70| 65 00 09 41 89 15 83 65 | 00 09 40 3b 83 65 00 09 |e..A...e|..@;.e..|
|00001b80| 40 89 14 84 2e 01 09 a3 | a3 3c 83 74 00 c9 09 a3 |@.......|.<.t....|
|00001b90| a3 21 82 79 00 ca 09 a3 | a3 21 83 b6 00 09 41 41 |.!.y....|.!....AA|
|00001ba0| 89 15 83 b6 00 09 40 3b | 83 b6 00 09 40 89 14 83 |......@;|....@...|
|00001bb0| b6 00 5c 66 83 b2 00 09 | 41 40 41 3b 83 b2 00 09 |..\f....|A@A;....|
|00001bc0| 41 40 41 89 13 83 b2 00 | 0b 83 b2 00 5c 66 0b 50 |A@A.....|....\f.P|
|00001bd0| 89 14 84 2e 01 5c 66 84 | 2e 01 09 a3 a3 a3 3c 83 |.....\f.|......<.|
|00001be0| c7 00 c9 09 a3 a3 a3 21 | 82 cd 00 ca 09 a3 a3 a3 |.......!|........|
|00001bf0| 21 83 0d 01 09 41 41 41 | 89 15 83 0d 01 09 40 3b |!....AAA|......@;|
|00001c00| 83 0d 01 09 40 89 14 83 | 0d 01 5c 66 83 09 01 09 |....@...|..\f....|
|00001c10| 41 41 40 41 3b 83 09 01 | 09 41 41 40 41 89 13 83 |AA@A;...|.AA@A...|
|00001c20| 09 01 0b 83 09 01 5c 66 | 0b 50 89 14 84 2e 01 5c |......\f|.P.....\|
|00001c30| 66 84 2e 01 5c 6e 3b 83 | 2e 01 0e 0b 84 1d 01 09 |f...\n;.|........|
|00001c40| a2 3b 83 26 01 5c 6e 14 | c0 12 09 15 82 2e 01 5c |.;.&.\n.|.......\|
|00001c50| 6e 14 c0 12 cc 09 42 15 | 0d 83 39 01 0d 3b 83 39 |n.....B.|..9..;.9|
|00001c60| 01 0d 14 0d 85 54 01 5c | 66 85 54 01 c8 5c 66 0e |.....T.\|f.T..\f.|
|00001c70| 0d 5c 22 86 54 01 5c 66 | 5c 6e 0d 42 42 0e 0d 42 |.\".T.\f|\n.BB..B|
|00001c80| 89 16 0d 2c 87 22 20 5b | 6e 69 6c 20 65 6c 74 20 |...,." [|nil elt |
|00001c90| 65 76 65 6e 74 20 63 61 | 63 68 65 20 73 74 72 20 |event ca|che str |
|00001ca0| 6b 6d 20 75 6e 64 65 66 | 69 6e 65 64 20 74 6d 6d |km undef|ined tmm|
|00001cb0| 2d 74 61 62 6c 65 2d 75 | 6e 64 65 66 20 61 73 73 |-table-u|ndef ass|
|00001cc0| 6f 63 20 6b 65 79 6d 61 | 70 70 20 66 62 6f 75 6e |oc keyma|pp fboun|
|00001cd0| 64 70 20 69 6e 2d 78 2d | 6d 65 6e 75 20 6b 65 79 |dp in-x-|menu key|
|00001ce0| 6d 61 70 20 74 6d 6d 2d | 6b 6d 2d 6c 69 73 74 5d |map tmm-|km-list]|
|00001cf0| 20 35 20 28 23 24 20 2e | 20 36 35 30 34 29 5d 29 | 5 (#$ .| 6504)])|
|00001d00| 0a 23 40 32 39 39 20 52 | 65 74 75 72 6e 20 74 68 |.#@299 R|eturn th|
|00001d10| 65 20 63 75 72 72 65 6e | 74 20 62 69 6e 64 69 6e |e curren|t bindin|
|00001d20| 67 20 6f 66 20 4b 45 59 | 53 45 51 2c 20 6d 65 72 |g of KEY|SEQ, mer|
|00001d30| 67 69 6e 67 20 70 72 65 | 66 69 78 20 64 65 66 69 |ging pre|fix defi|
|00001d40| 6e 69 74 69 6f 6e 73 2e | 0a 49 66 20 4b 45 59 53 |nitions.|.If KEYS|
|00001d50| 45 51 20 69 73 20 61 20 | 70 72 65 66 69 78 20 6b |EQ is a |prefix k|
|00001d60| 65 79 20 74 68 61 74 20 | 68 61 73 20 6c 6f 63 61 |ey that |has loca|
|00001d70| 6c 20 61 6e 64 20 67 6c | 6f 62 61 6c 20 62 69 6e |l and gl|obal bin|
|00001d80| 64 69 6e 67 73 2c 0a 77 | 65 20 6d 65 72 67 65 20 |dings,.w|e merge |
|00001d90| 74 68 65 6d 20 69 6e 74 | 6f 20 61 20 73 69 6e 67 |them int|o a sing|
|00001da0| 6c 65 20 6b 65 79 6d 61 | 70 20 77 68 69 63 68 20 |le keyma|p which |
|00001db0| 73 68 6f 77 73 20 74 68 | 65 20 70 72 6f 70 65 72 |shows th|e proper|
|00001dc0| 20 6f 72 64 65 72 20 6f | 66 20 74 68 65 20 6d 65 | order o|f the me|
|00001dd0| 6e 75 2e 0a 48 6f 77 65 | 76 65 72 2c 20 66 6f 72 |nu..Howe|ver, for|
|00001de0| 20 74 68 65 20 6d 65 6e | 75 20 62 61 72 20 69 74 | the men|u bar it|
|00001df0| 73 65 6c 66 2c 20 74 68 | 65 20 76 61 6c 75 65 20 |self, th|e value |
|00001e00| 64 6f 65 73 20 6e 6f 74 | 20 74 61 6b 65 20 61 63 |does not| take ac|
|00001e10| 63 6f 75 6e 74 0a 6f 66 | 20 60 6d 65 6e 75 2d 62 |count.of| `menu-b|
|00001e20| 61 72 2d 66 69 6e 61 6c | 2d 69 74 65 6d 73 27 2e |ar-final|-items'.|
|00001e30| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 6d 6d |..(defal|ias 'tmm|
|00001e40| 2d 67 65 74 2d 6b 65 79 | 62 69 6e 64 20 23 5b 28 |-get-key|bind #[(|
|00001e50| 6b 65 79 73 65 71 29 20 | 22 c0 89 19 1a c3 5c 66 |keyseq) |".....\f|
|00001e60| 21 11 c5 09 21 83 10 00 | c0 11 09 86 2d 00 c6 c7 |!...!...|....-...|
|00001e70| c8 5c 66 21 5c 22 12 c9 | 5c 66 21 5c 6e 42 12 ca |.\f!\"..|\f!\nB..|
|00001e80| 5c 66 21 5c 6e 42 12 c6 | cb 5c 6e 5c 22 88 09 2a |\f!\nB..|.\n\"..*|
|00001e90| 87 22 20 5b 6e 69 6c 20 | 62 69 6e 64 20 61 6c 6c |." [nil |bind all|
|00001ea0| 62 69 6e 64 20 6b 65 79 | 2d 62 69 6e 64 69 6e 67 |bind key|-binding|
|00001eb0| 20 6b 65 79 73 65 71 20 | 6b 65 79 6d 61 70 70 20 | keyseq |keymapp |
|00001ec0| 6d 61 70 63 61 72 20 63 | 64 72 20 6d 69 6e 6f 72 |mapcar c|dr minor|
|00001ed0| 2d 6d 6f 64 65 2d 6b 65 | 79 2d 62 69 6e 64 69 6e |-mode-ke|y-bindin|
|00001ee0| 67 20 6c 6f 63 61 6c 2d | 6b 65 79 2d 62 69 6e 64 |g local-|key-bind|
|00001ef0| 69 6e 67 20 67 6c 6f 62 | 61 6c 2d 6b 65 79 2d 62 |ing glob|al-key-b|
|00001f00| 69 6e 64 69 6e 67 20 23 | 5b 28 69 6e 29 20 22 08 |inding #|[(in) ".|
|00001f10| 39 83 0e 00 c1 08 21 83 | 0e 00 08 4b 10 08 85 2c |9.....!.|...K...,|
|00001f20| 00 c1 08 21 85 2c 00 c1 | 5c 6e 21 83 27 00 5c 6e |...!.,..|\n!.'.\n|
|00001f30| c3 08 41 21 a4 89 12 87 | c3 08 21 89 12 87 22 20 |..A!....|..!..." |
|00001f40| 5b 69 6e 20 6b 65 79 6d | 61 70 70 20 62 69 6e 64 |[in keym|app bind|
|00001f50| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 5d 20 | copy-se|quence] |
|00001f60| 33 5d 5d 20 34 20 28 23 | 24 20 2e 20 37 34 33 31 |3]] 4 (#|$ . 7431|
|00001f70| 29 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)]).(byt|e-code "|
|00001f80| c0 c1 c2 5c 22 88 c3 c4 | 21 87 22 20 5b 61 64 64 |...\"...|!." [add|
|00001f90| 2d 68 6f 6f 6b 20 63 61 | 6c 65 6e 64 61 72 2d 6c |-hook ca|lendar-l|
|00001fa0| 6f 61 64 2d 68 6f 6f 6b | 20 23 5b 6e 69 6c 20 22 |oad-hook| #[nil "|
|00001fb0| c0 c1 21 87 22 20 5b 72 | 65 71 75 69 72 65 20 63 |..!." [r|equire c|
|00001fc0| 61 6c 2d 6d 65 6e 75 5d | 20 32 5d 20 70 72 6f 76 |al-menu]| 2] prov|
|00001fd0| 69 64 65 20 74 6d 6d 5d | 20 33 29 0a             |ide tmm]| 3).    |
+--------+-------------------------+-------------------------+--------+--------+